# Trump and Trade #

# FIGURE 1 #

require(RCurl)
require(xlsx)
require(zipcode)
require(choroplethr)

# Import TAA data

taa<-read.csv("taa_map.csv", header=TRUE)

# Figure 

data(continental_us_states)

taa$region = taa$cty_fips
taa$value = taa$totaltaa
map_taapetitions<-county_choropleth(taa,
                                    legend = "Total Number of TAA Petitions", 
                                    state_zoom = continental_us_states)

map_taapetitions
